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AUXILIARY 




Sine, Cosine Subroutine 


LIBRARY ROUTINE T 1 - 66 


TITLE: 


(SADOI or DOI) 


TYPE: 


Closed 




NUMBER OF WORDS: 


30 




TEMPORARY STORAGE: 


0, 1, 2 




ACCURACY: 


1/2 sin x + 2~ 39 


1/2 cos x + 2~ 3 ^ 




1/2 sin 2x + 3.2" 39 


1/2 cos 2x + 3.2"^ 


DURATION: 


20 milliseconds 




RAR: 


Adjacent to code: 30 if 


used infrequently 



DESCRIPTION: 



ENTRY: 



kO if used continually- 
Adjacent to 1, 2: k-0 if used infrequently 

50 if used continually 
This routine uses A as the argument x and places 
(sin x)/2 in storage location 1 
(cos x)/2 in storage location 2 
(sin 2j:)/2 in storage location 
(sin 2x)/2 in Q 
(cos 2x)/2 in A. 

50 P 



P+l 



26(T1) 



nj 



Rts 7/12/60 



DAT E December 2, 1953 



CODED BY Wheeler 



APPROVED BY 



J. P. Nash 
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ORDER 
OQK(Tl) 
40F 
S5 20L 
L4lIL 
42 l6L 
50 F 
7 J F 
40 IF 
L5 19L 
40 2F 
50 18L 
L5 L 
42 6L 
7J IF 
L4 30L 

50 2F 
40 2F 
L5 6L 
L4 11L 
42 6L 
LO 17L 
36 6L 
7 J F 
40 IF 
50 IF 
75 2F 
00 2F 
40 F 
50 2F 
75 2F 
00 2F 
LO 29L 
50 F 
50 F 
22 F 
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argument x to 
Set link address 

Pormx 2 

Set up starting values 



T 1 



} 
} 



- Evaluate both power series for (sin x)/2 
and (cos x)/2«. 



(sin x)/2x . x = (sin x)/2 



(sin x)/2 x (cos x)/2 x 4 



. (cos x)/2 x (cos x)/2 x 4 - 1/2 



Return to program 



LOCATION 
17 

18 

19 
20 
21 
22 

23 
2k 

25 
26 

27 
28 

29 



ORDER 

3J 3F ' 
U 30L 
NOF 00 4999 
9998 7606 j 
NOF pO 4999 

9986 4789 J 

OOF 00137 
7805 J 
OOF 0012 

3985 ^9J 
NOF 00 4999 

0079 3658 J 
NOF 00 ^993 

0555 6356 J 
OOF 004l 
6666 6667J 
OOF 00 208 

3333 3233 J 
NOF 00 kl66 
6666 6667 j 
FO F 
00 IF 
kO F 
00 F 
kO F 
00 F 



NOTES 
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T 1 



End constant 



a ll = " Vfc x n *) 
a 1Q = -1/(2 x 101) 



a Q — + 1/(2 x 90 



agiti + !/( 2 x 8i) 
a ? =il/(2 x 70 
a 6 =-1/(2 x 60 



a 5 = + 



a>. = + 



a 3=~ 



+ a 2 = " 



a l = + 



a = + 



NOTE: 



The coefficients a Q to a 1Q are modified to take into account the 
higher terms in the series. 



